home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / misc / aprof334.lha / AProf334 / rexx / c.aprof next >
Encoding:
Text File  |  1994-08-03  |  540 b   |  22 lines
  1. /* Dummy C Unmangler
  2.  *
  3.  * This demonstrates the basics for AProf unmanglers written in Rexx
  4.  *
  5.  * Don't use this in real life, since this is included in AProf
  6.  * as standard unmangler (No mangler selected in preferences)
  7.  *
  8.  * This unmangler removes a leading '_', if one exists
  9.  */
  10.  
  11. /* Get the symbol name from AProf and put it in 'symnam' */
  12. parse arg symnam
  13.  
  14. /* Check if there is a leading '_' */
  15. if "_" = left( symnam, 1 ) then
  16.     /* Remove first char */
  17.     symnam = right( symnam, length( symnam ) -1 )
  18.  
  19. /* Return result */
  20. exit symnam
  21.  
  22.